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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS enn snee UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY i ACCORDANCE WITH THE TERM , OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE gilli NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Pannseeketee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE eae tee IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CoRPORATin. BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS af 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 
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Facility: EXECUTIVE 
Abstra 


“this code is part of the System image. It is entered directly 
as the ‘DEBUG’ transfer address. even when the real DEBUG 
will not be invoked, since it is this ‘bootstrap’ AN, 
decides whether to 
1) siaply start up the user image otrectty 
2) map the bulk P| DEBUG into the users’ PO space 
and transfers control to 
3) catch an SS$_DEBUG signal and arrange to have 
a mapped DEBOGger attached to a running process, 
or 
4) catch ony other st nal, rogert it, and try t 
invoke the mapped image which prints a  traceback’ or 
symbolic dump of where the program was when it faulted. 


Environment: 


Runs at user mode, non-AST Level in the System address space. 


Author: Carol Peters, Creation date: 21 July 1977 
Modified by: 
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$3 i : y to take an image dump 7 epprepretate. 
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-SBTTL DECLARATIONS 
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<“ 
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: Include files: 


| 
| 
on 
; the front of tne DEBUG/TRACE images 
; Offsets into the vector at the front of the DEBUG and TRACE images 
POSITIVE ,<- 
BU 
| 
| 


SCLIDEF i; Command interpreter flags 
$F ABDEF i: file access block definitions 
SIACDEF 3 jnage activation control flags 
SIHODEF ; image header definitions 
SLNMDEF ; logical name system service definitions 
SNAMDEF 3; name block definitions 
SPHDDEF ; process header block definitions 
SSECDEF ; process/global section definitions 
00 SSSDEF ; System service status definitions 
09 SSTSDEF 3; status code definitions 
4 SIMGACTDEF ; Image activator argument definitions 
09 : Macros: 
0 ; 
33 : Equated symbols: 
00000001 09 2 IMGHDRBLKCNT=1 ; Number of image header blocks 
0 
0 
0 
0 
0 


SOFFSET 0 
DEBUG _WRT_PAGES,- 


DEBUG-START_ADR - 


> 
DEBUG_WRT_PAGES: 
Beau WRT_ENDPG: 


OOoooooo 


= 
Soooo 
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WOOO 00000909 09000009 09 0909 INI NII NIE NINN NIO PO AOAAO 
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0 UG" START_ADR: 
i 
4 ; Offsets from R6 used by the mapin Logic 
100 SOFFSET 0,POSITIVE,<- 
101 <,<<IMGACTS NARGS+1>#4>>,- ; Argument List for SIMGACT call 
1 § <{MGACT_INADR 8>,- ; Input address range to map image at 
1 <IMGACT-RETADR,8>,- ; Ret adr range where image wag mapped 
104 <NAMDSC ,8>,=- ; Descriptor for yntrens\ ates ile name 
105 <DFLTNAMDSC,8>,- ; Descriptor for default file string 
1 : <TRNNAMDSC,6>, = : Descriptor for translated file spec 
1 <TRNNAME TRING, LNMSC_NAMLENGTH>,= ; Buffer for translated file spec 
1 : <HDRBUF ,512>,- : Image header buffer for SIMGACT 
193 SSCRATCHSIZE.0>,- ; size of area address off of FP 
IMGACT_INADR: 
C IMGACT_RETADR: 
4 NAMDSC: 
C DFLTNAMDSC: 
44 TRNNAMDSC : 
4C TRNNAME STRING: 
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rt} wens: 
SCRATCHSIZE: 


An ‘arg’ vector is passed to TRACE ys using the following 
locations thru SECT_BOUNDS. FA must remain the first 
of these locations Twe use it to sletens the vector), and 
the order of these variables must not change. 

The storage for this vector and any additional own data is at located 

off the end of the call frame generated by the call to BOOT_START. 
The FP needed to address this own data is found at exception time 

as the ‘‘establisher frame’’ in the ‘mechanism array. 


SOFFSET 0,POSITIVE,<= 
FAULT_PC,- 


; Pass the PC on to TRACE.EXE 

; Pass to TRACE the FP when the fault occurr 
; Program start address 

; What FP was when user aie was invoked in 


FAY LT_F 
<PROG =stat, 0>,- 


SIGNAC_ARRAY,- 
<SECT BOUNDS. 8>,- 


: ; end of TRACE's arg’ 
ee of trace 


Additional own easter variables are to be sdded here 


Address of signal arr 
; Beginning of RACE’s syabol table, 


5 Sadi tional own data 


SAVE ; Saved AP that image was invoked with 
MAP geet KADDR, - ; Where to JMP to invoke TRACE, 0 if not map 
<TRACE CTX S12, 0>,- ; Size of own storage see at end of fra 
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Output parameters: 
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-SBTTL DEBUG_BOOT - DEBUG/TRACEBACK/IMAGE ACTIVATOR 


in 

that DBGBOOT was there. If DEBUG or TRACE is at po 
this routine finds out where the user program's PO space ends. 

It then maps the DEBUG/TRACE global section into the space following 
the user's PO space, marks the DEBUG/TRACE impure ptor age args 

as ‘copy on reference’, and transfers control to the initialization 
code in the DEBUG/TRACE global section. 


#6, EXESIMGSTA 


- transfer vector address 
(AP) = address of CLI parse information (not used) 
2(AP) = address of image header information 
6(AP) = address of image file information 
QOCAP) = LINK status bits 
4(AP) = CLI status bits 


Implicit inputs: 
We may use one of two image files, DEBUG.EXE or TRACE.EXE, both 


located in the logical device SYS$LIBRARY. 


- system status code. 

= SS$_RESIGNAL if error code from SCRMPSC or SMGBLSC 
r eyeniee else in this driver module fails 

SS$_NORMAL or other DBG$_... returns from the rest 

of BEBUG in the other case. 


Implicit outputs: 
p th p 


e stack frame created when this BOOT is called (by CLI) 
remains around to contain the frame handler we need to 
cates progress which fault when there is no DEBUG 
around. 


Completion codes: 
Ss$ NO 


NORMAL = successfully mapped in D’:BUG/TRACE 
SS$_RESIGNAL = unable to map in DEBUG/TRACE 


Side effects: 
Lets user run DEBUG, his image directly, or TRACEback. 


~-PSECT YFSSSYSIMGSTA B’TE,EXE 
LIST MEB 
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Start the Program or DEB Bete 7 $5 :80 28 


} : -SBTTL Start the Program or DEBUG 
0000 138 ENTRY EXESIMGSTA,O 
198 ASSUME TRACE_CTX_SIZ=-4 EQ MAP_SEC_XADDR 
7E 04 19 CLRL =(SP) ; Mo mapped section transfer address 
rae?) © 00 SUBL #TRACE_CTX_SIZ2-4,SP 3 reserve traceback own storage 
18 _ =o 7 01 MOVL AP ,,SAVED_AP(SP) i Save AP that program is called with 
5 Ar D B § MOVL 4(AP),R ; Address of transfer vector 
08 AE 4 A D F MOVL 4(RO) ,PROG_START (SP) ; Save program start address and avoid 
4 4 3; referencing the prone vor vec tor after purg 
18 AC Q EO S18 Fi BBS FOCL Sy DEBUG .24 (AP). ; See if command-line override given 
14 AC 9 EO O15 BBS SA THOSY ,LNKDEBUG.20(AP) ,~ ; No override = check for $LINK/DEBUG 
O1E § CLI_OVERRIDE: yi 
18 AC 2 E0 4 19 BBS SOeCL IBY POSTRU.26(AP) .~ 3; Check for SRUN/DEBUG 
0 \§ ; DEBUG will not comeup - either because "'SRUN program” was given slong yith.. 
0 15 ; SLINK program (i.e. no SLINK/DEBUG or $RUN/DEBUG), or because ‘'$RUN/NODEBUG’ 
0 14 ; as given. - 
0 12 ; 
8p 19 BE_SILENT: 
0 18 ; Set up a frame handler to look 
00 19 ; after invoking traceback if the 
00 0 ; ‘standalone’ image faults if 
0 1 ; the user types “Y DEBUG to attach 
0 § ; DEBUG to an already-running image. 
6D 30°AF DF 0 MOVAL B*BOOT_HANDLER, (FP) 
04 ac 04 C 0 4 ADDL #4,4(AB) ; Adjust transfer vector to ignore 
+ B 5 ; the fact that DEBUG is around 
08 BE 6C fA 83 ? } § cme (AP) ,@PROG_START (SP) ; and invoke the user program directly. 
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Exception Handler for TRACE SEP- 4:48 
6 -SBTTL Exception Handler for TRACE 

Control is passed to DEBUG or TRACEBACK with a JMP instruction. The 

register save mask at BOOT_HANDLER thus serves as the register save 


mask for these procedures. Both DEBUG and TRACEBACK assume that all 
registers have been saved. 


OOT_HANDLER: 


4 
i 
OFFC § eWORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R1IO,R11> ; save mask 
50 04 AC 7D re MOVQ 4(AP) ,RO ; Pick up pointer to signal arg List. 
4 ; R1 = address of mechanism array 
58 O04 A1 20 C3 3 : 4 : SUBL3 #TRACE_CTX_SIZ,4(R1),R8 ; Address of own storage 
. B 44 : The debugger is started up if the exception name is SS$_DEBUG. 
B 45 ; Traceback happens if error level is WARNING, SEVERE, or ERROR. 
038 rt 3; Otherwise we let DCL's frame handler decide 
; : tf 3 what to do with this exception. 
0000046C 8F 04 A0 D1 00 49 ° CMPL 4(RO) ,#SS$_DEBUG : if DEBUG exception, 
1A = 13004 50 BEQL D G ; then start ue the debugger 
52 60 03 20 EF 04 51 EXTZV #STS$SV_SEVERITY+32,#STS$S_SEVERITY, (RO) .R2 
4A 26 3; Check for exact match to the 
004A 5 i severity levels which cause TRACE 
52 4 3 pen 23 Sree #STS$K_WARNING,R2 
52 ¢ 4 rH 2$ eror #STS$K_ERROR,R2 
52 3 4 bes 28 core #sTSSK SEVERE ,R2 
50 0918 BF 3¢ $3? 60 MOVZWL #SS$_RESIGNAL RO ; This signal is not for us. 
04 zf o) : RET 
O3t e§ : Start up the debugger as a result of a DEBUG exception. 
O5F 265 bO_DEBUG: 
=. =. SS OSF 06 MOVL AP ,R2 3 save condition handler AP 
5c = s«i18 $8 Dd bee 6 MOVL SAVED_AP(R8) , AP ; AP when image was first invoked 
04 ac 5 dO 66 $8 MOVL R2,4 (AP) : replace start vector address with 
06A 8 ; condition handler AP 
00 18 AC 10 €E2 QO06A 0 BBSS #CLISV_DBGEXCP,24(AP) ,10$ ; DEBUG exception triggerred 
OOF 71 3; the starting of the debugger 
oer 98 so 
of if : Map the debugger in and transfer control to it 
F 2 bEBUG_MAPIN: 
57 CO'AF 9 F 7 MOVAB B8*DEBUGNAME ,R7 ; Address of debugger name string 
0080 3 3 8 BSBW MAPIN ; Map it in 
61 A 7 JMP (R1) 3; and transfer control to it 
f ° : Start up TRACE 
, $ 6O_TRACE: 
7 5 ; If status is SEVERE, check to see if image dump was requested. 
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04 2 3} if 5 CMPB R2,#STS$K_SEVERE 
3 1 78 8 BNEQ 5 
7 D 7 MOVQ & 5; 
eee oo, 16 J$B Exé $1RGDnP MERGE 3 foke dump if it was requested 
—E 7D MOVQ (SP)+ ; We will ignore errors 
9 93; guild a vector of args to TRACEback and pass on a pointer to this vector 
2 3¢ : in the same way as DEBUG usually gets a pointer to the transfer vector. 
0c AB 650) CoD 9 39 Ss: MOVL RO, SIGNAL_ARRAY (R8) 3; Put signal arg ptr into traceback vector. 
08 A 4 Al OD 9 MOVL  4(R1),FIRST FB CRB) ; Put first FP into traceback vector. 
04 A C AD p 98 MOVL  12(FPS,FAULT_FP(RB) EP at time of the exception 
5¢ _ 60 A 9 99 MOVZBL (RO),AP : Signal argument count 
68 704C DO OO9A 00 MOVL StROS CAP] FAULT_PC(R8) : Pu the fault PC in the vector 
5¢ 18 AB DO 009 1 MOVL § SAVED_AP(R8) ,AP™ ; AP when image was first invoked 
04 aC 5 D OA 8 MOVL R8,4(AP) 3; Pass address of traceback vector 
0A6 0 : in place of the transfer vector 
51 1C AB DO QO0A6 04 MOVL MAP_SEC_XADDR(R8) ,R1 : Is TRACE already mapped in? 
OD 12 OOAA 05 BNEQ 1 ; Branch if it is 
10 AB 7C OOAC 06 CLRQ SECT pouNes (Re) 3: Init section bound for TRACE 
57 ®BB'AF 3 OOAF 07 MOVAB Ah. RACENAM ; Mapping in TRACE 
41 10 0083 08 BSBB MAPIN ; Go map the a e in 
1c AB C1 09 0085 09 MOVL R1,MAP_SEC_XADDR(R8) ; Save its transfer addre 
61 1 00B9 10 10$: JMP (Ri) 3 and transfer control Hoe * TRACE /DEBUG 
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; OUTPUTS: 


R1 = Transfer 
R2,R3,R4,R5,R6 SCRATC 


: R7 


SS SN 
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5E cess SE 
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~SCRATCHSIZE(SP) ,SP 
= 
(SP), #0, #SCRATCHSIZE, (sP) 3 zero the scratch storage 


——— 


v04-00 Page 


AX/VMS Mac 
JSY SIMG STA.MAR; 1 


SYS.SRCJS 


= Address of name string for DEBUG or TRACE 


RO = SS$_NORMAL or SS$_RESIGNAL 
address yor entering the desired program 


If any error occurs, this routine exits via RET with status in RO 


; reserve scratch storage on the stack 
base of scratch area 


4 } -SBTTL Map in and Start DEBUG or TRACE 
4 : DEBUG and TRACE name strings 
OBB 316 TRACENAME: 
45 43 41 52 54 246 42 49 4C¢ 94 ! «ASCII /LIBSTRACE/ 3 hegreet nave to transtate inge rihg 
00000009 o¢4 i LNAMESIZ=.-TRACENAME tea conde toes cap? ote c 
C4 DESUGNAME : 

47 55 42 45 44 26 42 49 4C bed eASCII /LIBSDEBUG/ ; Logical name to translate into file 
sh i; spec and file name prefixed by LIB$ 
+34 ASSUME LNAMESIZ EQ .-DEBUGNAME 

49 4C 24 53 59 53 000000D5'010E0000' cb neciescctiwe’ ts /SYS$SLIBRARY: .EXE/ RMS defaul ing for SIMGACT 
oo 85 ie Se Se gs? 3 ? ob8 : Ss : efault name string for SIMGAC 
0E5 FACNAMDES: 3; strd f facilit 
42 47 55 42 45 44 000000ED"910E0000" O0E5 "ASCID —/DEBUGBOOT/ ee ee ee 

54 4F 4F te 
? ; Map DEBUG or TRACE in as a shared GLOBAL section or as a process section. 
? 34 ; CALLING SEQUENCE: 
? 3 BSBW MAPIN 
6 ; INPUTS: 
6 . 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
B 


: address of process header i 


Initialize the argument List for SIMGACT merge request system service call. 
MOVL eineacts NARGS , (R6) 


Set argument count for SIMGACT call 


9E MOVAB NAMDSC(RB) ) sINGACTS NAME (RO): Bs 24 ° snout eyte pene anes 
9 MOVAB DEF AULTNARDSC. IMG nGACTS DFLNAM(R t adr o ult name str 
p OVL  #<1AC$M_MERG SH” EXPREG> 1 ROaGActs "hd “Set ctl flags 
E MOVAB TmoACT Inchcts, HD DRBUF (RO) Set adr of image f set. buffer 
9E MOVAB IMGA ABR CR RO) pring) ; Set adr 2 input va range 
9E MOVAB IMGACT™ Rés, TRCACTS-R RETADR Bere! Set ad ; at return range 
4 CLRL pee satis -"No match ident species 
C MOVZWL 200, ripen TNADR (RG) ; Set a blueprint j++ range for 


9 
(6) 


; 


——d 
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28 AG so SEFFFFFF 8F 0 0137 67 #1830-1,IMGACT INADR+4(R6) 3; mapping to first free va space | 
4A BR 3 28 MOVIBL AL NAnE »NAMDSC(R6) 3 Init Slee ‘. name to tranclete 
BA po 14 § VL ,NAMDSC #4 (R6) ; Init adr “of nam to translate 
44 AG OFF OF A 014 9 MOVZBL #LNMSC_NAMLENGTH, TRNNAMDSC (R6) Set size of translated name buffer | 
48 AG 4C AB CE 136 4 MOVAB  TRNNAMESTRING(R6S, TRNNAMDSCALCR (Rd) ; Set adr of tran name buffer 
o i 
18} 4§ ; Now 49 a logical name crens losin of L1psoeBye/Liesraace to get the file 
151 74 ; spec fication to pass to SIMGACT. If there is no translation, then strip | 
} } 8 ; the LIBS off the name and pass that. 
151 4] STRNLOG_S - ; Translate to get file spec 
13 4 “LOGNAM=NAMDSC(R6) ,- ; Name string to be translated 
151 37 RSLLEN=TRNNAMDSC(R6),- |; Resultant size of translated string 
151 80 RSLBUF = TRNNAMDSC (R6) ; Adr of translated string buffer desc 
00 DD 151 PUSHL # 
00 OD 1 H PUSHL @# 
60 D 01 PUSHL 
44 A6 F 157 PUSHAQ TRNNAMDSC(R6) 
44 A6 of 015A PUSHAW Lineaonety +t as 
34 A6 F 8128 PUSHAQ DSC (R6) 
00000000'GF 06 FB 169 CALLS nen BS y S$ TRNLOG 
50 O01 D1 O16 81 CMPL aess “NORMAL, RO 3; Successful Sounetecte? 
07 12 O16A Hf BNEQ 40$ ~ ; Branch if not successful 
34 A6 426444 AGB «O7D 196 8 MOVQ TRNNAMDSC(R6) ,NAMDSC(R6) ; Pass translated string to SIMGACT 
OF 11 Q171 84 BRB 60$ : Go call image activator 
50 0629 8F 81 17 85 40S: CMPW #SS$_NOTRAN,RO ; Was there no logical translation? 
B 1 17 6 BNEQ ERROR RET ; No, there was an error, ret w/status 
4 A6 oo 17A 7 SUBL #4 ,,NAPDSC(R6) ; Strip the LIBS off the file name that 
8A 046 C 17 88 ADDL #4 ,NAMDSC +4 (R6) : is passed to the image activator 
1 89 60$: SIMGACT_G (R6) Let image activator map in the image 
00000000 ' GF $6 FA 01 LLG (RO), G*SYSSIMGACT 
19 50 €9 Q1 $39 BLBC RO,ERROR_RET Branch on error to return w/ status 
018C 91 SIMGFIX_S : Do address relocation fixups 
00000000 ' GF 98 fe 01 5 “CAL #0,G*SYSSIMGF IX 
OF £ B188 3 BLBC RO,ERROR_ RET ; Branch on error to return w/ status 
196 94 3+ 
0196 95 : A vector in the out global section contains the start of impure 
196 a8 i 3 storege, s the end of impure storage, and the transfer address of DEBUG 
0196 97 : itsel s vector is in PSECT DAGSABS. ZERO, and is always the first 
196 98 ; thing in DEBUG. EXE. Since DEBUG.EXE is linked with a base of zero, the 
8139 iRp > vector is the first thing in the global section. 
196 401; 
O13 4 § 3; The third address in the vector is DEBUG's transfer address. 
196 405 ; Add the DEBUG transfer address to the base address of the 
132 Z 3 : first mapped page and jump to it. 
196 406 TRANS_CONTROL: 
é ec A6 OD 196 & MOVL IMGACT_RETADR(R6) ,R1 Get mapped address of section 
51 1 OB Al C1 O19A & : ADDL3 DEBUG _START_ADR(R1),R1, ri ; compute DEBUG start address 
5E 0348 C6 OF 19F 4 MOVAL SCRATCHS TETRE) LSP ; remove scratch storage from stack 
1% $19 RSB 3 return transfer address to caller 
183 $18 ERROR fel: 
7E 8650 9? C8 1A 41 BICL LS #STSSM_SEVERITY,RO,-(SP) ; Reduce error code severity to warning 
7E F 8B 1A9 414 MOVW #15,-(SP) ; Print all pieces of err msg 


SYSIMGSTA - Image Startup System Service 16-SEP-1984 02:20:47 VAX/VMS Macro V04-90 
v04 Map 2 and Start beeuG or TRACE ae eet 1 8g: 80:5 SYS.SRCISYSIMGSTA.MAR; 1 
7 g 8 1AC = 415 MOV #1,-(SP) ; Set the number of parameters 
5 ge »D 1AF £18 MOVL SP Re i; Save adr of argument List 
ols 18 41 SPUTHSG_§ (R )» »FACNAMDES : Report error to user 
FF2D 60 F 18 PUSHAQ FACNAMDES 
8 DD 0188 PUSH # 
DF O1BA PUSHAL (RO) 
00009900" st 4 FB 18 paths wna 
918 8F a 1¢ 218 MOVZWL #SSS$_RESIGNAL,R ; Resignal the error 
1¢ 41 RET ; Return with error status 
1C $59 
109 = 421 END 
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Mac 
4:48 (CSYS.SRCISYSIMGSTA.MAR; 1 (6) 
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! Psect synopsis ! 


te wrecer waa cn en cana} 


PSECT name Allocation PSECT No. Attributes 

» 8 « $08 00 ¢ -) 00 ¢ 9.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 88 4 ( 843.) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

YFSSSYSIMGSTA 00001C ( 657.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
gam om na menrer ne newer ec wenn amore $ 
! Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 9 0:00:00. :00:00. 

Command processing 6 3: 0:9 3 0:00:09. 36 

Pass 36 :00:12.70 0:00: 33 

Symbol table sort 9 0:00:02.01 B:08: 4.3 

Pass 2 9 3: 702.43 :00: 6°18 

Symbol table output 10 :00:00.11 sf 0.1 

Psect synopsis output 38 : 8 0: 3 

Cross-reference output 0: 309 8: 88:8 0 

Assembler run totals 614 0:00:17.9 00:00:39.47 


The working set Limit was 1500 pages. 
73891 bytes _(145 pages) of virtual memory were used to buffer phe intermediate code. 
There were 70 pages of symbol table space allocated to hold 1330 non-local and 5 local symbols. 
421 source Lines were read in Pass 1, producing 17 object records in Pass 2. 
pages of virtual memory were used to define 26 macros. 
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! Macro library statistics : 


Macro Library name Macros defined 
5 ggSbuace: SYS.OBJJLIB.MLB;1 ¢ 
$255$DUA28: (SYSLIBISTARLET.MLB; 2 

TOTALS (all Libraries) 3 


1474 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSIMGSTA/OBJ=OBJ$:SYSIMGSTA MSRC$:SYSIMGSTA/UPDATE=(ENHS:SYSIMGSTA) +EXECMLS$/LIB 
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